home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbfaqr01.zip / COPY.BAS < prev    next >
BASIC Source File  |  1992-08-10  |  805b  |  25 lines
  1. 'Date: 03-02-92 (19:11)
  2. 'From: JOHN SNEERINGER
  3. '---------------------------------------------------------------------------
  4.        ' ===========================================================
  5.        '  Copy File From Command Line -> Named to whatever F2$ is.
  6.        ' ===========================================================
  7.  
  8.        F1$ = COMMAND$    ' Target filename from command line
  9.  
  10.        INPUT "New Name?"; F2$      ' name of file you want to copy to
  11.  
  12.        OPEN "B", 1, F1$
  13.        OPEN "B", 2, F2$
  14.        A$ = SPACE$(1024)
  15.        FOR i = 1 TO LOF(1) \ 1024
  16.           GET 1, , A$
  17.           PUT 2, , A$
  18.        NEXT i
  19.        IF LOF(1) MOD 1024 > 0 THEN
  20.            A$ = SPACE$(LOF(1) MOD 1024)
  21.            GET 1, , A$
  22.            PUT 2, , A$
  23.        END IF
  24.        CLOSE 1, 2
  25.